home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / mee / vbdao / visdata / zoom.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1994-10-06  |  2.8 KB  |  109 lines
  1. VERSION 2.00
  2. Begin Form fZoom 
  3.    BackColor       =   &H00C0C0C0&
  4.    ClientHeight    =   1800
  5.    ClientLeft      =   3600
  6.    ClientTop       =   3930
  7.    ClientWidth     =   4560
  8.    Height          =   2205
  9.    KeyPreview      =   -1  'True
  10.    Left            =   3540
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   1800
  13.    ScaleWidth      =   4560
  14.    Top             =   3585
  15.    Width           =   4680
  16.    Begin CommandButton CloseZoomButton 
  17.       Caption         =   "&Close"
  18.       Height          =   264
  19.       Left            =   120
  20.       TabIndex        =   4
  21.       Top             =   36
  22.       Visible         =   0   'False
  23.       Width           =   972
  24.    End
  25.    Begin TextBox cData 
  26.       Height          =   285
  27.       Left            =   40
  28.       TabIndex        =   0
  29.       Tag             =   "OLS"
  30.       Top             =   360
  31.       Width           =   4455
  32.    End
  33.    Begin CommandButton SaveButton 
  34.       Caption         =   "&Save Changes"
  35.       Height          =   264
  36.       Left            =   120
  37.       TabIndex        =   2
  38.       Top             =   36
  39.       Visible         =   0   'False
  40.       Width           =   1932
  41.    End
  42.    Begin CommandButton CloseButton 
  43.       Cancel          =   -1  'True
  44.       Caption         =   "&Close w/o Changes"
  45.       Height          =   264
  46.       Left            =   2160
  47.       TabIndex        =   3
  48.       Top             =   40
  49.       Visible         =   0   'False
  50.       Width           =   1932
  51.    End
  52.    Begin TextBox cMemo 
  53.       BackColor       =   &H00FFFFFF&
  54.       Height          =   1332
  55.       Left            =   48
  56.       MultiLine       =   -1  'True
  57.       ScrollBars      =   2  'Vertical
  58.       TabIndex        =   1
  59.       Tag             =   "OLS"
  60.       Top             =   360
  61.       Visible         =   0   'False
  62.       Width           =   4452
  63.    End
  64. Option Explicit
  65. Dim FData As String
  66. Sub cData_KeyPress (KeyAscii As Integer)
  67.   'throw away the key if save not allowed
  68.   If SaveButton.Visible = False Then KeyAscii = 0
  69. End Sub
  70. Sub CloseButton_Click ()
  71.   gstZoomData = "__CANCELLED__"
  72.   Unload Me
  73. End Sub
  74. Sub CloseZoomButton_Click ()
  75.   Call CloseButton_Click
  76.   Unload Me
  77. End Sub
  78. Sub Form_KeyPress (KeyAscii As Integer)
  79.   'check for the escape key
  80.   If KeyAscii = 27 Then
  81.     Call CloseButton_Click
  82.     Exit Sub
  83.   End If
  84. End Sub
  85. Sub Form_Load ()
  86.   SendKeys "{End}"
  87.   Width = 4600
  88. End Sub
  89. Sub Form_Paint ()
  90.   Outlines Me
  91. End Sub
  92. Sub Form_Resize ()
  93.   On Error Resume Next
  94.   If cData.Visible = True Then
  95.     cData.Width = Me.Width - 200
  96.   Else
  97.     cMemo.Width = Me.Width - 200
  98.     cMemo.Height = Me.Height - 850
  99.   End If
  100. End Sub
  101. Sub SaveButton_Click ()
  102.   If cData.Visible = True Then
  103.     gstZoomData = cData
  104.   Else
  105.     gstZoomData = cMemo
  106.   End If
  107.   Unload Me
  108. End Sub
  109.